home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / gfx / show / dad_demo.lha / Start_DAD_Demo < prev   
Encoding:
Text File  |  1994-02-26  |  758 b   |  29 lines
  1. ; script written to start DAD_Demo program on DAD_Demo_Disk:
  2. ; February 26, 1994 version 1.3
  3.  
  4. if not exists DAD_Demo_Disk:
  5.     echo "*N m The Design a Draft Demonstration Program  "
  6.     echo "*N m Must be on a disk named DAD_Demo_Disk: "
  7.     echo "*N  Please place files and drawers on a disk named"
  8.     echo "*n  DAD_Demo_Disk: and try again.   *N"
  9.     wait 15
  10.     quit
  11. endif
  12.  
  13. ASSIGN DAD_DRAWER: DAD_Demo_Disk:
  14. ASSIGN DEST: DAD_Demo_Disk:
  15. STACK 20000
  16.  
  17. failat 30
  18. if not exists ram:THREADING_UNITS
  19.     makedir ram:THREADING_UNITS
  20.     makedir ram:TREADLING_UNITS
  21.     assign THREADING_UNITS: ram:THREADING_UNITS
  22.     assign TREADLING_UNITS: ram:TREADLING_UNITS
  23. endif
  24.  
  25. ECHO "*N m Design a Draft Demonstration Program loading ... m"
  26. cd DAD_Demo_Disk:
  27. RUN DAD_Demo_Disk:DAD_Demo
  28. wait 15
  29.